Imports DAO
Imports DTO
Public Class DiemTrungBinhBUS

    'Oanh
    'tinh dtb
    Public Function TinhDiemTrungBinh(ByVal maLH As Integer, ByVal maNH As Integer, ByVal hocKy As Integer) As DataTable
        Dim dt As DataTable
        Dim dtbDAO As New DiemTrungBinhDAO()
        dt = dtbDAO.TinhDiemTrungBinh(maLH, maNH, hocKy)
        Return dt
    End Function

    'BCTKM: so luong dat, theo khoi
    Public Function SoLuongDat(ByVal maKhoi As Integer, ByVal maNam As Integer, ByVal maMon As Integer, ByVal hocKy As Integer) As DataTable
        Dim kq As DataTable
        Dim dtbDAO As New DiemTrungBinhDAO
        kq = dtbDAO.SoLuongDat(maKhoi, maNam, maMon, hocKy)
        Return kq
    End Function

    'BCTKM : so luong dat , theo tat ca cac khoi
    Public Function SoLuongDat_2(ByVal maNam As Integer, ByVal maMon As Integer, ByVal hocKy As Integer) As DataTable
        Dim kq As DataTable
        Dim dtbDAO As New DiemTrungBinhDAO
        kq = dtbDAO.SoLuongDat_2(maNam, maMon, hocKy)
        Return kq
    End Function

    'BCTKHK : tinh diem trung binh cuoi ky, theo hoc ky, namhoc, tat ca cac lop
    Public Function DiemTB_TatCa(ByVal maNH As Integer, ByVal hocKy As Integer) As DataTable
        Dim kq As DataTable
        Dim dtbDAO As New DiemTrungBinhDAO
        kq = dtbDAO.DiemTB_TatCa(maNH, hocKy)
        Return kq
    End Function

End Class